home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / misc / MCPPReload.lha / MCPPReload / Install < prev    next >
Encoding:
Text File  |  1999-01-14  |  1.5 KB  |  85 lines
  1. (set #langfound 0)
  2.  
  3. (if (= "deutsch" @language)
  4.     (
  5.         (set #langfound 1)
  6.         (set #MSG_WHERE "Wohin soll das Utility (ca. 8 KByte lang) kopiert werden?")
  7.         (set #MSG_WHERE_OTHER "Anderen Pfad auswählen ...")
  8.         (set #MSG_PATH "Zielpfad wählen!")
  9.         (set #MSG_BADPATH "\nPfad existiert nicht!")
  10.         (set #MSG_COPY "Kopiere MCPPReload nach \"%s\" ...")
  11.         (set #MSG_DONE "\nInstallation abgeschlossen!")
  12.         (set #MSG_NOHELP "Es gibt keine Hilfe. Sorry!")
  13.  
  14.     )
  15. )
  16.  
  17. (if (= 0 #langfound)
  18.     (
  19.         (set #MSG_WHERE "Where do you want the utility (~8 KBytes long) to be copied?")
  20.         (set #MSG_WHERE_OTHER "Other place ...")
  21.         (set #MSG_PATH "Select destination path!")
  22.         (set #MSG_BADPATH "\nPath does not exist!")
  23.         (set #MSG_COPY "Copying MCPPReload to \"%s\" ...")
  24.         (set #MSG_DONE "\nInstallation complete!")
  25.         (set #MSG_NOHELP "No help available. Sorry!")
  26.     )
  27. )
  28.  
  29. (set #where
  30.     (askchoice
  31.         (prompt #MSG_WHERE)
  32.         (help #MSG_NOHELP)
  33.         (choices "C:" "MDEV:bin/" #MSG_WHERE_OTHER)
  34.         (default 0)
  35.     )
  36. )
  37.  
  38. (set #ok 0)
  39.  
  40. (while (= 0 #ok)
  41.     (
  42.         (set #ok 1)
  43.  
  44.         (if (= 0 #where)
  45.             (set #dest "C:")
  46.             (
  47.                 (if (= 1 #where)
  48.                     (set #dest "MDEV:bin")
  49.                     (
  50.                         (set #dest
  51.                             (askdir
  52.                                 (prompt #MSG_PATH)
  53.                                 (help #MSG_NOHELP)
  54.                                 (default "MDEV:")
  55.                                 (disk)
  56.                             )
  57.                         )
  58.                     )
  59.                 )
  60.             )
  61.         )
  62.         
  63.         (if (<> 2 (exists #dest))
  64.             (
  65.                 (set #ok 0)
  66.                 (set #where 2)
  67.                 (message #MSG_BADPATH)
  68.             )
  69.         )
  70.     )
  71. )
  72.  
  73. (set #dest (expandpath #dest))
  74.  
  75. (copyfiles
  76.     (prompt (#MSG_COPY #dest))
  77.     (help #MSG_NOHELP)
  78.     (source "MCPPReload")
  79.     (dest #dest)
  80.     (confirm)
  81. )
  82.  
  83. (exit #MSG_DONE (quiet))
  84.  
  85.